home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / fontutil.6 / fontutil / fontutils-0.6 / bin / pcharstr < prev    next >
Encoding:
Text File  |  1992-05-18  |  1009 b   |  46 lines
  1. #!/bin/sh
  2. # Print the encrypted and encoded charstrings (i.e., the CharStrings and
  3. # Subrs dictionaries) in a font.  This uses the `pcharstr.ps' file that
  4. # comes with Ghostscript.
  5.  
  6. if test $# -lt 1 -o $# -gt 2
  7. then
  8.   echo "Usage: $0 <filename>[.gsf] [<FontName>]."
  9.   exit 1
  10. fi
  11.  
  12. filename=$1
  13.  
  14. # If the filename has no extension, add .gsf.
  15. # 
  16. if echo `basename $filename` | grep '\.' > /dev/null 2>&1
  17. then :
  18. else filename=$filename.gsf
  19. fi
  20.  
  21. # If the fontname wasn't given, guess it from the `%!' line in the file.
  22. # We look for the file in the current directory only, so this loses for
  23. # fonts which are in the GS directory.
  24. if test -z "$2"
  25. then
  26.   if test -r $filename
  27.   then fontname=`sed -n 's/^%!FontType.* \(.*\) .*$/\1/p' < $filename`
  28.   fi
  29. else
  30.   fontname=$2
  31. fi
  32.  
  33. if test -z "$fontname"
  34. then
  35.   echo "Can't guess FontName; please supply it."
  36.   exit 1
  37. fi
  38.  
  39. gsnd - << eof
  40. ($filename)run
  41. (pcharstr.ps)run
  42. /$fontname findfont setfont
  43. currentfont /FontName get (Ugly) eq { (No font.) == quit } if
  44. ()= printfont
  45. eof
  46.